SCREEN 2,320,200,3,1
  anfang:      
        WINDOW 2,"Serienschaltung",(0,10)-(297,186),1+2+8,2
        PALETTE 0,0.1,0,0.33      
        PALETTE 1,0.4,0.87,0.1     
        PALETTE 2, 0,0.93,0.87 
        PALETTE 3,1,1,0.13    
        PALETTE 4,1,0.9,0.73   
        PALETTE 5,0.8,0.6,0.45  
        PALETTE 6,0.93,0.2,0   
        PALETTE 7,0.47,0.78,1  
        COLOR 3,6
        
        CIRCLE (38,30),28,1,,,1  
        CIRCLE (20,45),1.5,3     
        CIRCLE (50,50),1.5,3     
        CIRCLE (30,30),1.5,3     
        CIRCLE (40,45),1.5,3     
        CIRCLE (30,15),1.5,3     
        CIRCLE (240,30),20,1     
        CIRCLE (240,65),20,1     
        CIRCLE (240,15),1.5,3    
        CIRCLE (240,45),1.5,3    
        CIRCLE (240,50),1.5,3    
        CIRCLE (240,80),1.5,3    
        CIRCLE (30,156),20,3,,,1    
        CIRCLE (20,150),1.5,3       
        CIRCLE (40,150),1.5,3       
        CIRCLE (20,165),1.5,3       
        CIRCLE (40,165),1.5,3       
        CIRCLE (220,30),1.5,3       
        LINE   (40,45)-(40,150),4   
        LINE   (40,45)-(240,45),4   
        LINE   (50,50)-(240,50),4   
        LINE   (50,50)-(50,165),4   
        LINE   (40,165)-(50,165),4  
        LINE   (20,45)-(20,165),5   
        LINE   (0,45)-(20,45),5     
        LINE   (0,15)-(240,15),7    
        LINE   (240,15)-(265,15),7  
        LINE   (265,15)-(265,80),7  
        LINE   (240,80)-(265,80),7  
        LINE   (0,30)-(220,30),3    
        LINE   (230,20)-(250,40),6  
        LINE   (230,40)-(250,20),6  
        LINE   (230,55)-(250,75),6  
        LINE   (230,75)-(250,55),6  
        LINE   (20,150)-(37,140),6  
        LINE   (20,165)-(37,156),6  
        
        LOCATE 2,1 : PRINT "N" : LOCATE 5,1 :PRINT "PE"
        LOCATE 7,1 : PRINT "L1": LOCATE 18,15 : PRINT "Linke Maustaste"
        LOCATE 20,8 :PRINT "S1"
             
        ON MOUSE GOSUB start         
        MOUSE ON                     
        WHILE INKEY$="" : WEND
        
    start: 
      LINE   (20,150)-(37,150),6     
      GOSUB aus           
    aus:        
      LINE   (20,150)-(37,140),0     
                 
        FOR i=0 TO 20 STEP 0.1
        PSET (i,45),6
        NEXT i
        FOR i=45 TO 150 STEP 0.1
        PSET (20,i),6  
        NEXT i
        FOR y=-0 TO 105 STEP 0.1              
        PSET (40,150-y),6
        NEXT y
        FOR b=40 TO 240 STEP 0.1
        PSET (b,45),6
        NEXT b
        IF b<>240 THEN GOSUB an 
    an: 
        CIRCLE (240,30),20,3
        PAINT  (240,30),3            

        '***********************************************************
                     
        ON MOUSE GOSUB startt         
        MOUSE ON                     
        WHILE INKEY$="":WEND
      
    startt:     
  
      LINE   (20,165)-(37,165),6     
      GOSUB aaus           
    aaus:        
      LINE   (20,165)-(37,156),0     
        
        FOR i=150 TO 165 STEP 0.1
        PSET (20,i),6
        NEXT i
                 
        FOR i=37 TO 50 STEP 0.1       
        PSET (i,165),6
        NEXT i
        
        FOR y=-0 TO 115 STEP 0.1               
        PSET (50,165-y),6
        NEXT y
        
        FOR b=50 TO 240 STEP 0.1      
        PSET (b,50),6
        NEXT b
        
        IF b<>240 THEN GOSUB aan 
    aan: 
        x=3
        CIRCLE (240,65),20,x
        PAINT  (240,65),x            
        
        ON MOUSE GOSUB anfang
        MOUSE ON
        
        WHILE INKEY$="" :WEND